/* http://flex.sourceforge.net/manual/Bison-Bridge.html#Bison-Bridge */
/* Parser to convert "C" assignments to lisp. */
%{
/* Pass the argument to yyparse through to yylex. */
#include <stdio.h>
#define YYPARSE_PARAM scanner
#define YYLEX_PARAM   scanner
%}
%locations
%pure_parser
%union {
 int num;
 char* str;
}
%token <str> STRING
%token <num> NUMBER
%%
assignment:
 STRING '=' NUMBER ';' {
     printf( "(setf %s %d)", $1, $3 );
}
;

%%


void yyerror(char *cadena)
{
	
	
	printf("error\n");
	
	printf("\n");
	
}
int main(int argc, char *argv[])
{
	
	
    yyparse(argv[1]);
  
   
   printf("No se pudo finalizar la traduccion\n");

   return 0;
}			

